- Timestamp:
- 2017-06-30T13:48:02+02:00 (7 years ago)
- Location:
- branches/UKMO/test_moci_test_suite/NEMOGCM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/test_moci_test_suite/NEMOGCM/CONFIG/SHARED/field_def.xml
r7923 r8257 221 221 222 222 <!-- * variable related to ice shelf forcing * --> 223 <field id="qisf" long_name="Ice Shelf Heat Flux" unit="W/m2" /> 223 224 <field id="berg_calve" long_name="Iceberg calving" unit="kg/m2/s" /> 224 225 <field id="fwfisf" long_name="Ice shelf melting" unit="kg/m2/s" /> -
branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r8243 r8257 406 406 ENDIF 407 407 END DO 408 #else 409 CALL ctl_stop( "Can not set without XIOS2: error in set_rstr_active") 408 410 #endif 409 411 END SUBROUTINE set_rstr_active … … 411 413 SUBROUTINE set_rstw_active(rst_file, it) 412 414 !sets enabled = .TRUE. for each field in restart file 413 #if defined key_xios2414 415 CHARACTER(len=*) :: rst_file 415 416 INTEGER, INTENT(in) :: it ! timestep when iom_init was called 417 #if defined key_xios2 416 418 TYPE(xios_field) :: field_hdl 417 419 TYPE(xios_file) :: file_hdl … … 419 421 INTEGER :: i 420 422 421 !set the nname of the restart file (OUTPUT!) and enable available fields423 !set the name of the restart file (OUTPUT!) and enable available fields 422 424 if(lwp) WRITE(numout,*) 'Setting (output) restart filename (for XIOS) to: ',TRIM(rst_file) 423 425 CALL xios_get_handle("file_definition", filegroup_hdl ) … … 663 665 ENDDO 664 666 ENDIF 667 #else 668 CALL ctl_stop( "Can not set without XIOS2: error in set_rstrw_active") 665 669 #endif 666 670 END SUBROUTINE set_rstw_active … … 1927 1931 CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = 1-nldi, data_ni = jpi, data_jbegin = 1-nldj, data_nj = jpj) 1928 1932 1933 CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei,nldj:nlej),(/ ni*nj /)), & 1934 & latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /))) 1929 1935 IF ( lmask ) THEN 1930 CALL iom_set_domain_attr("grid_"//cdgrd, lonvalue = RESHAPE(plon(nldi:nlei,nldj:nlej),(/ ni*nj /)), &1931 & latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /)))1932 1936 ! mask land points, keep values on coast line -> specific mask for U, V and W points 1933 1937 SELECT CASE ( cdgrd ) … … 2090 2094 CALL iom_set_domain_attr("gznl", lonvalue = zlon, & 2091 2095 & latvalue = RESHAPE(plat(nldi:nlei, nldj:nlej),(/ ni*nj /))) 2092 2096 CALL iom_set_zoom_domain_attr ("ptr", ibegin=ix-1, jbegin=0, ni=1, nj=jpjglo) 2093 2097 #endif 2094 2098
Note: See TracChangeset
for help on using the changeset viewer.