Changeset 11223 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/IOM/iom.F90
- Timestamp:
- 2019-07-05T20:53:14+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
r11194 r11223 835 835 836 836 837 FUNCTION iom_varid ( kiomid, cdvar, kdimsz, kndims, ld stop )837 FUNCTION iom_varid ( kiomid, cdvar, kdimsz, kndims, lduld, ldstop ) 838 838 !!----------------------------------------------------------------------- 839 839 !! *** FUNCTION iom_varid *** … … 844 844 CHARACTER(len=*) , INTENT(in ) :: cdvar ! name of the variable 845 845 INTEGER, DIMENSION(:), INTENT( out), OPTIONAL :: kdimsz ! size of each dimension 846 INTEGER, INTENT( out), OPTIONAL :: kndims ! size of the dimensions 846 INTEGER , INTENT( out), OPTIONAL :: kndims ! number of dimensions 847 LOGICAL , INTENT( out), OPTIONAL :: lduld ! true if the last dimension is unlimited (time) 847 848 LOGICAL , INTENT(in ), OPTIONAL :: ldstop ! stop if looking for non-existing variable (default = .TRUE.) 848 849 ! … … 874 875 iiv = iiv + 1 875 876 IF( iiv <= jpmax_vars ) THEN 876 iom_varid = iom_nf90_varid( kiomid, cdvar, iiv, kdimsz, kndims )877 iom_varid = iom_nf90_varid( kiomid, cdvar, iiv, kdimsz, kndims, lduld ) 877 878 ELSE 878 879 CALL ctl_stop( trim(clinfo), 'Too many variables in the file '//iom_file(kiomid)%name, & … … 892 893 ENDIF 893 894 IF( PRESENT(kndims) ) kndims = iom_file(kiomid)%ndims(iiv) 895 IF( PRESENT( lduld) ) lduld = iom_file(kiomid)%luld( iiv) 894 896 ENDIF 895 897 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.