Changeset 13910
- Timestamp:
- 2020-11-30T10:45:13+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/cfgs/C1D_PAPA/EXPREF/namelist_cfg
r13558 r13910 428 428 / 429 429 !----------------------------------------------------------------------- 430 !-----------------------------------------------------------------------431 /432 !-----------------------------------------------------------------------433 430 &namhsb ! Heat and salt budgets (default: OFF) 434 431 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg
r13558 r13910 388 388 / 389 389 !----------------------------------------------------------------------- 390 !-----------------------------------------------------------------------391 /392 !-----------------------------------------------------------------------393 390 &namhsb ! Heat and salt budgets (default: OFF) 394 391 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg
r13558 r13910 384 384 / 385 385 !----------------------------------------------------------------------- 386 !-----------------------------------------------------------------------387 /388 !-----------------------------------------------------------------------389 386 &namhsb ! Heat and salt budgets (default: OFF) 390 387 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/cfgs/SHARED/namelist_ref
r13558 r13910 1264 1264 !!gm ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S 1265 1265 !!gm 1266 /1267 1266 !----------------------------------------------------------------------- 1268 1267 &namhsb ! Heat and salt budgets (default: OFF) -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/cfgs/WED025/EXPREF/namelist_cfg
r13558 r13910 583 583 / 584 584 !----------------------------------------------------------------------- 585 !-----------------------------------------------------------------------586 /587 !-----------------------------------------------------------------------588 585 &namhsb ! Heat and salt budgets (default: OFF) 589 586 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/src/OCE/IOM/iom.F90
r13716 r13910 1914 1914 IF( iom_use(cdname) ) THEN 1915 1915 #if defined key_iomput 1916 IF( SIZE(pfield2d, dim=1) == jpi .AND. SIZE(pfield2d, dim=2) == jpj ) THEN 1917 CALL xios_send_field( cdname, pfield2d(Nis0:Nie0, Njs0:Nje0) ) ! this extraction will create a copy of pfield2d 1918 ELSE 1919 CALL xios_send_field( cdname, pfield2d ) 1920 ENDIF 1916 CALL xios_send_field( cdname, pfield2d ) 1921 1917 #else 1922 1918 WRITE(numout,*) pfield2d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 1930 1926 IF( iom_use(cdname) ) THEN 1931 1927 #if defined key_iomput 1932 IF( SIZE(pfield2d, dim=1) == jpi .AND. SIZE(pfield2d, dim=2) == jpj ) THEN 1933 CALL xios_send_field( cdname, pfield2d(Nis0:Nie0, Njs0:Nje0) ) ! this extraction will create a copy of pfield2d 1934 ELSE 1935 CALL xios_send_field( cdname, pfield2d ) 1936 ENDIF 1928 CALL xios_send_field( cdname, pfield2d ) 1937 1929 #else 1938 1930 WRITE(numout,*) pfield2d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 1946 1938 IF( iom_use(cdname) ) THEN 1947 1939 #if defined key_iomput 1948 IF( SIZE(pfield3d, dim=1) == jpi .AND. SIZE(pfield3d, dim=2) == jpj ) THEN 1949 CALL xios_send_field( cdname, pfield3d(Nis0:Nie0, Njs0:Nje0,:) ) ! this extraction will create a copy of pfield3d 1950 ELSE 1951 CALL xios_send_field( cdname, pfield3d ) 1952 ENDIF 1940 CALL xios_send_field( cdname, pfield3d ) 1953 1941 #else 1954 1942 WRITE(numout,*) pfield3d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 1962 1950 IF( iom_use(cdname) ) THEN 1963 1951 #if defined key_iomput 1964 IF( SIZE(pfield3d, dim=1) == jpi .AND. SIZE(pfield3d, dim=2) == jpj ) THEN 1965 CALL xios_send_field( cdname, pfield3d(Nis0:Nie0, Njs0:Nje0,:) ) ! this extraction will create a copy of pfield3d 1966 ELSE 1967 CALL xios_send_field( cdname, pfield3d ) 1968 ENDIF 1952 CALL xios_send_field( cdname, pfield3d ) 1969 1953 #else 1970 1954 WRITE(numout,*) pfield3d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 1978 1962 IF( iom_use(cdname) ) THEN 1979 1963 #if defined key_iomput 1980 IF( SIZE(pfield4d, dim=1) == jpi .AND. SIZE(pfield4d, dim=2) == jpj ) THEN 1981 CALL xios_send_field( cdname, pfield4d(Nis0:Nie0, Njs0:Nje0,:,:) ) ! this extraction will create a copy of pfield4d 1982 ELSE 1983 CALL xios_send_field (cdname, pfield4d ) 1984 ENDIF 1964 CALL xios_send_field (cdname, pfield4d ) 1985 1965 #else 1986 1966 WRITE(numout,*) pfield4d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 1994 1974 IF( iom_use(cdname) ) THEN 1995 1975 #if defined key_iomput 1996 IF( SIZE(pfield4d, dim=1) == jpi .AND. SIZE(pfield4d, dim=2) == jpj ) THEN 1997 CALL xios_send_field( cdname, pfield4d(Nis0:Nie0, Njs0:Nje0,:,:) ) ! this extraction will create a copy of pfield4d 1998 ELSE 1999 CALL xios_send_field (cdname, pfield4d ) 2000 ENDIF 1976 CALL xios_send_field (cdname, pfield4d ) 2001 1977 #else 2002 1978 WRITE(numout,*) pfield4d ! iom_use(cdname) = .F. -> useless test to avoid compilation warnings … … 2204 2180 ! 2205 2181 CALL iom_set_domain_attr("grid_"//cdgrd, ni_glo=Ni0glo,nj_glo=Nj0glo,ibegin=mig0(Nis0)-1,jbegin=mjg0(Njs0)-1,ni=Ni_0,nj=Nj_0) 2206 CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = 0, data_ni = Ni_0, data_jbegin = 0, data_nj = Nj_0)2182 CALL iom_set_domain_attr("grid_"//cdgrd, data_dim=2, data_ibegin = -nn_hls, data_ni = jpi, data_jbegin = -nn_hls, data_nj = jpj) 2207 2183 !don't define lon and lat for restart reading context. 2208 2184 IF ( .NOT.ldrxios ) & … … 2303 2279 CALL dom_ngb( 180.0_wp, 90.0_wp, ix, iy, 'T' ) ! i-line that passes near the North Pole : Reference latitude (used in plots) 2304 2280 CALL iom_set_domain_attr("gznl", ni_glo=Ni0glo, nj_glo=Nj0glo, ibegin=mig0(Nis0)-1, jbegin=mjg0(Njs0)-1, ni=Ni_0, nj=Nj_0) 2305 CALL iom_set_domain_attr("gznl", data_dim=2, data_ibegin = 0, data_ni = Ni_0, data_jbegin = 0, data_nj = Nj_0)2281 CALL iom_set_domain_attr("gznl", data_dim=2, data_ibegin = -nn_hls, data_ni = jpi, data_jbegin = -nn_hls, data_nj = jpj) 2306 2282 CALL iom_set_domain_attr("gznl", lonvalue = real(zlon, dp), & 2307 2283 & latvalue = real(RESHAPE(plat(Nis0:Nie0, Njs0:Nje0),(/ Ni_0*Nj_0 /)),dp)) -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/tests/ISOMIP+/EXPREF/namelist_cfg
r13558 r13910 477 477 / 478 478 !----------------------------------------------------------------------- 479 !-----------------------------------------------------------------------480 /481 !-----------------------------------------------------------------------482 479 &namhsb ! Heat and salt budgets (default: OFF) 483 480 !----------------------------------------------------------------------- -
NEMO/branches/2020/dev_r13723_KERNEL-01_Amy_Mike_newHPGschemes/tests/ISOMIP/EXPREF/namelist_cfg
r13558 r13910 437 437 / 438 438 !----------------------------------------------------------------------- 439 !-----------------------------------------------------------------------440 /441 !-----------------------------------------------------------------------442 439 &namhsb ! Heat and salt budgets (default: OFF) 443 440 !-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.