64 |
ELSEIF ( usingCurvilinearGrid ) THEN |
ELSEIF ( usingCurvilinearGrid ) THEN |
65 |
CALL INI_CURVILINEAR_GRID( myThid ) |
CALL INI_CURVILINEAR_GRID( myThid ) |
66 |
ELSEIF ( usingCylindricalGrid ) THEN |
ELSEIF ( usingCylindricalGrid ) THEN |
67 |
CALL INI_CYLINDER( myThid ) |
CALL INI_CYLINDER_GRID( myThid ) |
68 |
ELSE |
ELSE |
69 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
70 |
WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ', |
WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ', |
110 |
CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid) |
CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid) |
111 |
CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid) |
CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid) |
112 |
CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid) |
CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid) |
113 |
|
CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid) |
114 |
|
CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid) |
115 |
|
|
116 |
mon_write_stdout = .FALSE. |
mon_write_stdout = .FALSE. |
117 |
mon_write_mnc = .FALSE. |
mon_write_mnc = .FALSE. |