Skip to content

Commit

Permalink
fixing alignment
Browse files Browse the repository at this point in the history
  • Loading branch information
biljanaorescanin committed Dec 21, 2021
1 parent 614c6bb commit e32e95f
Show file tree
Hide file tree
Showing 2 changed files with 135 additions and 135 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -5547,17 +5547,17 @@ subroutine Driver ( RC )
call MAPL_GetPointer(EXPORT,CNLAI41, 'CNLAI41' , RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,CNLAI42, 'CNLAI42' , RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,CNLAI43, 'CNLAI43' , RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU001,'RMELTDU001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU002,'RMELTDU002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU003,'RMELTDU003', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU004,'RMELTDU004', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU005,'RMELTDU005', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTBC001,'RMELTBC001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTBC002,'RMELTBC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTOC001,'RMELTOC001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTOC002,'RMELTOC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,WATERTABLED,'WATERTABLED',RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,FSWCHANGE, 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU001,'RMELTDU001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU002,'RMELTDU002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU003,'RMELTDU003', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU004,'RMELTDU004', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTDU005,'RMELTDU005', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTBC001,'RMELTBC001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTBC002,'RMELTBC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTOC001,'RMELTOC001', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,RMELTOC002,'RMELTOC002', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,WATERTABLED ,'WATERTABLED', RC=STATUS); VERIFY_(STATUS)
call MAPL_GetPointer(EXPORT,FSWCHANGE , 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS)
IF (RUN_IRRIG /= 0) call MAPL_GetPointer(EXPORT,IRRIGRATE ,'IRRIGRATE' , RC=STATUS); VERIFY_(STATUS)

NTILES = size(PS)
Expand Down
Loading

0 comments on commit e32e95f

Please sign in to comment.