Changeset 5023 for LMDZ6/trunk
- Timestamp:
- Jul 5, 2024, 4:53:42 PM (2 months ago)
- Location:
- LMDZ6/trunk/libf/phylmdiso
- Files:
-
- 8 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90
r5007 r5023 1042 1042 ALLOCATE(xtrunoff_diag(niso,klon)) 1043 1043 ALLOCATE(h1_diag(klon),runoff_diag(klon)) 1044 !SN 1045 runoff_diag(:)=0. ; xtrunoff_diag(:,:)=0. ! because variables are only given values on knon grid points 1044 1046 #endif 1045 1047 ! -
LMDZ6/trunk/libf/phylmdiso/phys_output_ctrlout_mod.F90
r5007 r5023 2000 2000 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_xtoliq(:) 2001 2001 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_xtcond(:) 2002 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_xtrunoff_diag(:) 2002 2003 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dxtdyn(:) 2003 2004 TYPE(ctrl_out), SAVE, ALLOCATABLE :: o_dxtldyn(:) … … 2097 2098 TYPE(ctrl_out), SAVE :: o_runoff = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 2098 2099 'runoff', 'Run-off rate land ice', 'kg/m2/s', (/ ('', i=1, 10) /)) 2100 #ifdef ISO 2101 TYPE(ctrl_out), SAVE :: o_runoff_diag = ctrl_out((/ 1, 1, 10, 1, 10, 10, 11, 11, 11, 11/), & 2102 'runoffland', 'Run-off rate land for bucket', 'kg/m2/s', (/ ('', i=1, 10) /)) 2103 #endif 2099 2104 TYPE(ctrl_out), SAVE :: o_albslw3 = ctrl_out((/ 1, 1, 1, 1, 10, 10, 11, 11, 11, 11/), & 2100 2105 'albslw3', 'Surface albedo LW3', '-', (/ ('', i=1, 10) /)) -
LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90
r4817 r5023 178 178 ALLOCATE(o_xtoliq(ntraciso)) 179 179 ALLOCATE(o_xtcond(ntraciso)) 180 ALLOCATE(o_xtrunoff_diag(ntraciso)) 180 181 ALLOCATE(o_dxtdyn(ntraciso)) 181 182 ALLOCATE(o_dxtldyn(ntraciso)) … … 569 570 o_xtcond (ixt)=ctrl_out(flag, 'ocond'//TRIM(outiso), 'Condensed water', unit, [('',i=1,nfiles)]) 570 571 572 flag = [1, 1, 1, 10, 5, 10, 11, 11, 11, 11]; unit = 'kg/m2/s' 573 o_xtrunoff_diag (ixt)=ctrl_out(flag, 'runoffland'//TRIM(outiso), 'Run-off rate land for bucket', unit, [('',i=1,nfiles)]) 574 571 575 flag = [4, 10, 10, 10, 10, 10, 11, 11, 11, 11]; unit = '(kg/kg)/s' 572 576 o_dxtdyn (ixt)=ctrl_out(flag, 'dqdyn'//TRIM(outiso), 'Dynamics dQ', unit, [('',i=1,nfiles)]) -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5007 r5023 2683 2683 ENDDO 2684 2684 #ifdef ISO 2685 doixt=1,ntraciso2685 DO ixt=1,ntraciso 2686 2686 xtql1(ixt,:)=0.0 2687 2687 DO k = 1, klev … … 2694 2694 ENDIF 2695 2695 ENDDO !DO k = 1, klev 2696 enddo !doixt=1,ntraciso2696 ENDDO !DO ixt=1,ntraciso 2697 2697 #endif 2698 2698 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.