Changeset 11362 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/IOM/iom.F90
- Timestamp:
- 2019-07-29T13:54:58+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/IOM/iom.F90
r11223 r11362 58 58 PUBLIC iom_init, iom_swap, iom_open, iom_close, iom_setkt, iom_varid, iom_get 59 59 PUBLIC iom_chkatt, iom_getatt, iom_putatt, iom_getszuld, iom_rstput, iom_delay_rst, iom_put 60 PUBLIC iom_use, iom_context_finalize 60 PUBLIC iom_use, iom_context_finalize, iom_miss_val 61 61 62 62 PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d … … 1671 1671 CHARACTER(LEN=*), INTENT(in) :: cdname 1672 1672 REAL(wp) , INTENT(in) :: pfield0d 1673 REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson1673 !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1674 1674 #if defined key_iomput 1675 zz(:,:)=pfield0d1676 CALL xios_send_field(cdname, zz)1677 !CALL xios_send_field(cdname, (/pfield0d/))1675 !!clem zz(:,:)=pfield0d 1676 !!clem CALL xios_send_field(cdname, zz) 1677 CALL xios_send_field(cdname, (/pfield0d/)) 1678 1678 #else 1679 1679 IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings … … 2391 2391 !! NOT 'key_iomput' a few dummy routines 2392 2392 !!---------------------------------------------------------------------- 2393 2394 2393 SUBROUTINE iom_setkt( kt, cdname ) 2395 2394 INTEGER , INTENT(in):: kt … … 2406 2405 2407 2406 LOGICAL FUNCTION iom_use( cdname ) 2408 !!----------------------------------------------------------------------2409 !!----------------------------------------------------------------------2410 2407 CHARACTER(LEN=*), INTENT(in) :: cdname 2411 !!----------------------------------------------------------------------2412 2408 #if defined key_iomput 2413 2409 iom_use = xios_field_is_active( cdname ) … … 2416 2412 #endif 2417 2413 END FUNCTION iom_use 2418 2414 2415 SUBROUTINE iom_miss_val( cdname, pmiss_val ) 2416 CHARACTER(LEN=*), INTENT(in ) :: cdname 2417 REAL(wp) , INTENT(out) :: pmiss_val 2418 #if defined key_iomput 2419 ! get missing value 2420 CALL xios_get_field_attr( cdname, default_value = pmiss_val ) 2421 #else 2422 IF( .FALSE. ) WRITE(numout,*) cdname, pmiss_val ! useless test to avoid compilation warnings 2423 #endif 2424 END SUBROUTINE iom_miss_val 2425 2419 2426 !!====================================================================== 2420 2427 END MODULE iom
Note: See TracChangeset
for help on using the changeset viewer.