Changeset 5407 for trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2015-06-11T21:13:22+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5385 r5407 121 121 CALL set_scalar 122 122 123 IF( TRIM(cdname) == "nemo") THEN123 IF( TRIM(cdname) == TRIM(cxios_context) ) THEN 124 124 CALL set_grid( "T", glamt, gphit ) 125 125 CALL set_grid( "U", glamu, gphiu ) … … 129 129 ENDIF 130 130 131 IF( TRIM(cdname) == "nemo_crs" ) THEN131 IF( TRIM(cdname) == TRIM(cxios_context)//"_crs" ) THEN 132 132 CALL dom_grid_crs ! Save the parent grid information & Switch to coarse grid domain 133 133 ! … … 1212 1212 CALL iom_swap( cdname ) ! swap to cdname context 1213 1213 CALL xios_update_calendar(kt) 1214 IF( cdname /= "nemo" ) CALL iom_swap( "nemo") ! return back to nemo context1214 IF( cdname /= TRIM(cxios_context) ) CALL iom_swap( TRIM(cxios_context) ) ! return back to nemo context 1215 1215 ! 1216 1216 END SUBROUTINE iom_setkt … … 1222 1222 CALL iom_swap( cdname ) ! swap to cdname context 1223 1223 CALL xios_context_finalize() ! finalize the context 1224 IF( cdname /= "nemo" ) CALL iom_swap( "nemo") ! return back to nemo context1224 IF( cdname /= TRIM(cxios_context) ) CALL iom_swap( TRIM(cxios_context) ) ! return back to nemo context 1225 1225 ENDIF 1226 1226 ! … … 1291 1291 CASE ('T', 'W') 1292 1292 icnr = -1 ; jcnr = -1 1293 IF( TRIM(cdname) == "nemo_crs" ) THEN1293 IF( TRIM(cdname) == TRIM(cxios_context)//"_crs" ) THEN 1294 1294 z_cnr(:,:,1) = gphif_crs ; z_cnr(:,:,2) = glamf_crs 1295 1295 z_pnt(:,:,1) = gphit_crs ; z_pnt(:,:,2) = glamt_crs … … 1300 1300 CASE ('U') 1301 1301 icnr = 0 ; jcnr = -1 1302 IF( TRIM(cdname) == "nemo_crs" ) THEN1302 IF( TRIM(cdname) == TRIM(cxios_context)//"_crs" ) THEN 1303 1303 z_cnr(:,:,1) = gphiv_crs ; z_cnr(:,:,2) = glamv_crs 1304 1304 z_pnt(:,:,1) = gphiu_crs ; z_pnt(:,:,2) = glamu_crs … … 1309 1309 CASE ('V') 1310 1310 icnr = -1 ; jcnr = 0 1311 IF( TRIM(cdname) == "nemo_crs" ) THEN1311 IF( TRIM(cdname) == TRIM(cxios_context)//"_crs" ) THEN 1312 1312 z_cnr(:,:,1) = gphiu_crs ; z_cnr(:,:,2) = glamu_crs 1313 1313 z_pnt(:,:,1) = gphiv_crs ; z_pnt(:,:,2) = glamv_crs
Note: See TracChangeset
for help on using the changeset viewer.