- Timestamp:
- 2015-11-20T09:39:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r5620 r5901 129 129 ! 130 130 IF( ln_cfmeta ) THEN ! Add additional grid metadata 131 CALL iom_set_domain_attr("grid_T", area = e1 2t(nldi:nlei, nldj:nlej))132 CALL iom_set_domain_attr("grid_U", area = e1 2u(nldi:nlei, nldj:nlej))133 CALL iom_set_domain_attr("grid_V", area = e1 2v(nldi:nlei, nldj:nlej))134 CALL iom_set_domain_attr("grid_W", area = e1 2t(nldi:nlei, nldj:nlej))131 CALL iom_set_domain_attr("grid_T", area = e1e2t(nldi:nlei, nldj:nlej)) 132 CALL iom_set_domain_attr("grid_U", area = e1e2u(nldi:nlei, nldj:nlej)) 133 CALL iom_set_domain_attr("grid_V", area = e1e2v(nldi:nlei, nldj:nlej)) 134 CALL iom_set_domain_attr("grid_W", area = e1e2t(nldi:nlei, nldj:nlej)) 135 135 CALL set_grid_bounds( "T", glamf, gphif, glamt, gphit ) 136 136 CALL set_grid_bounds( "U", glamv, gphiv, glamu, gphiu ) … … 903 903 IF( zofs /= 0. ) pv_r1d(:) = pv_r1d(:) + zofs 904 904 ELSEIF( PRESENT(pv_r2d) ) THEN 905 !CDIR COLLAPSE906 905 IF( zscf /= 1.) pv_r2d(:,:) = pv_r2d(:,:) * zscf 907 !CDIR COLLAPSE908 906 IF( zofs /= 0.) pv_r2d(:,:) = pv_r2d(:,:) + zofs 909 907 ELSEIF( PRESENT(pv_r3d) ) THEN 910 !CDIR COLLAPSE911 908 IF( zscf /= 1.) pv_r3d(:,:,:) = pv_r3d(:,:,:) * zscf 912 !CDIR COLLAPSE913 909 IF( zofs /= 0.) pv_r3d(:,:,:) = pv_r3d(:,:,:) + zofs 914 910 ENDIF … … 1219 1215 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: freq_op 1220 1216 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: freq_offset 1221 IF ( xios_is_valid_field (cdid) ) CALL xios_set_field_attr ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1222 IF ( xios_is_valid_fieldgroup(cdid) ) CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1217 IF ( xios_is_valid_field (cdid) ) CALL xios_set_field_attr & 1218 & ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1219 IF ( xios_is_valid_fieldgroup(cdid) ) CALL xios_set_fieldgroup_attr & 1220 & ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 1223 1221 CALL xios_solve_inheritance() 1224 1222 END SUBROUTINE iom_set_field_attr … … 1696 1694 END DO 1697 1695 1696 IF( jn == 1 .AND. TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 1698 1697 IF( jn == 1 ) CALL iom_set_file_attr( cdid, name = clname ) 1699 1698 IF( jn == 2 ) CALL iom_set_file_attr( cdid, name_suffix = clname ) … … 1743 1742 ENDIF 1744 1743 1744 !$AGRIF_DO_NOT_TREAT 1745 ! Should be fixed in the conv 1745 1746 IF( llfull ) THEN 1746 1747 clfmt = TRIM(clfmt)//",'_',i2.2,':',i2.2,':',i2.2" … … 1753 1754 WRITE(iom_sdate, '('//TRIM(clfmt)//')') iyear, imonth, iday ! date of the end of run 1754 1755 ENDIF 1756 !$AGRIF_END_DO_NOT_TREAT 1755 1757 1756 1758 END FUNCTION iom_sdate
Note: See TracChangeset
for help on using the changeset viewer.