Changeset 5748 for LMDZ6/trunk/libf/dyn3dmem
- Timestamp:
- Jul 2, 2025, 12:00:08 PM (5 days ago)
- Location:
- LMDZ6/trunk/libf/dyn3dmem
- Files:
-
- 6 edited
-
advtrac_loc.f90 (modified) (1 diff)
-
call_calfis_mod.f90 (modified) (1 diff)
-
check_isotopes_loc.f90 (modified) (5 diffs)
-
dynetat0_loc.f90 (modified) (3 diffs)
-
integrd_loc.f90 (modified) (2 diffs)
-
leapfrog_loc.f90 (modified) (11 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90
r5324 r5748 21 21 USE times 22 22 USE advtrac_mod, ONLY: finmasse 23 USE strings_mod, ONLY: int2str24 23 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 25 24 USE paramet_mod_h -
LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.f90
r5324 r5748 91 91 USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time 92 92 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS 93 USE strings_mod, ONLY: int2str94 93 USE iniprint_mod_h 95 94 IMPLICIT NONE -
LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.f90
r5271 r5748 1 1 SUBROUTINE check_isotopes(q, ijb, ije, err_msg) 2 2 USE parallel_lmdz 3 USE strings_mod, ONLY: maxlen, msg, strIdx, strStack, int2str, real2str3 USE strings_mod, ONLY: maxlen, msg, strIdx, strStack, num2str 4 4 USE infotrac, ONLY: nqtot, niso, nphas, isotope, isoCheck, iqIsoPha, isoSelect, & 5 5 ntiso, iH2O, nzone, tracers, isoName, itZonIso … … 89 89 CYCLE 90 90 END IF 91 CALL msg('ixt, iq = '//TRIM(strStack( int2str([ixt,iq]))), modname)92 msg1 = '('//TRIM(strStack( int2str([i,k])))//')'93 CALL msg(TRIM(tracers(iqpar)%name)//TRIM(msg1)//' = '//TRIM( real2str(q1)), modname)94 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM( real2str(q2)), modname)91 CALL msg('ixt, iq = '//TRIM(strStack(num2str([ixt,iq]))), modname) 92 msg1 = '('//TRIM(strStack(num2str([i,k])))//')' 93 CALL msg(TRIM(tracers(iqpar)%name)//TRIM(msg1)//' = '//TRIM(num2str(q1)), modname) 94 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM(num2str(q2)), modname) 95 95 CALL abort_gcm(modname, 'Error with isotopes: '//TRIM(err_msg), 1) 96 96 END DO … … 122 122 deltaD = (q2/q1/tnat(ixt)-1.)*1000. 123 123 IF(deltaD <= deltaDmax .AND. deltaD >= deltaDmin) CYCLE 124 CALL msg('ixt, iq = '//TRIM(strStack( int2str([ixt,iq]))), modname)125 msg1 = '('//TRIM(strStack( int2str([i,k])))//')'126 CALL msg(TRIM(tracers(iqpar)%name)//TRIM(msg1)//' = '//TRIM( real2str(q1)), modname)127 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM( real2str(q2)), modname)128 CALL msg(TRIM(nm(iiso))//TRIM( real2str(deltaD)), modname)124 CALL msg('ixt, iq = '//TRIM(strStack(num2str([ixt,iq]))), modname) 125 msg1 = '('//TRIM(strStack(num2str([i,k])))//')' 126 CALL msg(TRIM(tracers(iqpar)%name)//TRIM(msg1)//' = '//TRIM(num2str(q1)), modname) 127 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM(num2str(q2)), modname) 128 CALL msg(TRIM(nm(iiso))//TRIM(num2str(deltaD)), modname) 129 129 CALL abort_gcm(modname, 'Error with isotopes: '//TRIM(err_msg), 1) 130 130 END DO … … 153 153 deltaD = (q2/q1/tnat(iso_HDO)-1.)*1000. 154 154 IF(deltaD <= deltaDmax .AND. deltaD >= deltaDmin) CYCLE 155 CALL msg('izon, ipha = '//TRIM(strStack( int2str([izon, ipha]))), modname)156 CALL msg( 'ixt, ieau = '//TRIM(strStack( int2str([ ixt, ieau]))), modname)157 msg1 = '('//TRIM(strStack( int2str([i,k])))//')'158 CALL msg(TRIM(tracers(iqeau)%name)//TRIM(msg1)//' = '//TRIM( real2str(q1)), modname)159 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM( real2str(q2)), modname)160 CALL msg('deltaD = '//TRIM( real2str(deltaD)), modname)155 CALL msg('izon, ipha = '//TRIM(strStack(num2str([izon, ipha]))), modname) 156 CALL msg( 'ixt, ieau = '//TRIM(strStack(num2str([ ixt, ieau]))), modname) 157 msg1 = '('//TRIM(strStack(num2str([i,k])))//')' 158 CALL msg(TRIM(tracers(iqeau)%name)//TRIM(msg1)//' = '//TRIM(num2str(q1)), modname) 159 CALL msg(TRIM(tracers(iq )%name)//TRIM(msg1)//' = '//TRIM(num2str(q2)), modname) 160 CALL msg('deltaD = '//TRIM(num2str(deltaD)), modname) 161 161 CALL abort_gcm(modname, 'Error with isotopes: '//TRIM(err_msg), 1) 162 162 END DO … … 178 178 IF(ABS(xtractot-xiiso) > errmax .AND. ABS(xtractot-xiiso)/MAX(MAX(ABS(xtractot),ABS(xiiso)),1e-18) > errmaxrel) THEN 179 179 CALL msg('Error in iso_verif_aberrant trac: '//TRIM(err_msg)) 180 CALL msg('iiso, ipha = '//TRIM(strStack( int2str([iiso, ipha]))), modname)181 CALL msg('q('//TRIM(strStack( int2str([i,k])))//',:) = '//TRIM(strStack(real2str(q(i,k,:)))), modname)180 CALL msg('iiso, ipha = '//TRIM(strStack(num2str([iiso, ipha]))), modname) 181 CALL msg('q('//TRIM(strStack(num2str([i,k])))//',:) = '//TRIM(strStack(num2str(q(i,k,:)))), modname) 182 182 CALL abort_gcm(modname, 'Error with isotopes: '//TRIM(err_msg), 1) 183 183 END IF -
LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.f90
r5285 r5748 11 11 USE infotrac, ONLY: nqtot, tracers, niso, iqIsoPha, iH2O, isoName, & 12 12 new2oldH2O, newHNO3, oldHNO3 13 USE strings_mod, ONLY: maxlen, msg, strStack, real2str, int2str, strIdx13 USE strings_mod, ONLY: maxlen, msg, strStack, num2str, strIdx 14 14 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_INQUIRE_DIMENSION, NF90_INQ_VARID, & 15 15 NF90_CLOSE, NF90_GET_VAR, NF90_INQUIRE_VARIABLE, NF90_NoErr … … 111 111 112 112 !------------------------------------------------------------------------------- 113 CALL msg('rad, omeg, g, cpp, kappa = '//TRIM(strStack( real2str([rad,omeg,g,cpp,kappa]))), modname)113 CALL msg('rad, omeg, g, cpp, kappa = '//TRIM(strStack(num2str([rad,omeg,g,cpp,kappa]))), modname) 114 114 CALL check_dim(im,iim,'im','im') 115 115 CALL check_dim(jm,jjm,'jm','jm') … … 236 236 CHARACTER(LEN=*), INTENT(IN) :: str1, str2 237 237 CHARACTER(LEN=maxlen) :: s1, s2 238 IF(n1/=n2) CALL abort_gcm(TRIM(modname), 'value of "'//TRIM(str1)//'" = '//TRIM( int2str(n1))// &239 ' read in starting file differs from gcm value of "'//TRIM(str2)//'" = '//TRIM( int2str(n2)), 1)238 IF(n1/=n2) CALL abort_gcm(TRIM(modname), 'value of "'//TRIM(str1)//'" = '//TRIM(num2str(n1))// & 239 ' read in starting file differs from gcm value of "'//TRIM(str2)//'" = '//TRIM(num2str(n2)), 1) 240 240 END SUBROUTINE check_dim 241 241 -
LMDZ6/trunk/libf/dyn3dmem/integrd_loc.f90
r5285 r5748 17 17 USE comvert_mod, ONLY: ap, bp 18 18 USE temps_mod, ONLY: dt 19 USE strings_mod, ONLY: int2str19 USE strings_mod, ONLY: num2str 20 20 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 21 21 USE paramet_mod_h … … 184 184 ! call WriteField_u('int_finvmaold',finvmaold) 185 185 do j=1,nq 186 call WriteField_u('int_q'//trim( int2str(j)), &186 call WriteField_u('int_q'//trim(num2str(j)), & 187 187 q(:,:,j)) 188 call WriteField_u('int_dq'//trim( int2str(j)), &188 call WriteField_u('int_dq'//trim(num2str(j)), & 189 189 dq(:,:,j)) 190 190 enddo -
LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90
r5659 r5748 41 41 using_xios 42 42 USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS 43 USE strings_mod, ONLY: int2str43 USE strings_mod, ONLY: num2str 44 44 45 45 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 642 642 call WriteField_u('phis',phis) 643 643 do iq=1,nqtot 644 call WriteField_u('q'//trim( int2str(iq)), &644 call WriteField_u('q'//trim(num2str(iq)), & 645 645 q(:,:,iq)) 646 646 enddo … … 708 708 709 709 ! do j=1,nqtot 710 ! call WriteField_u('qadv'//trim( int2str(j)),q(:,:,j))710 ! call WriteField_u('qadv'//trim(num2str(j)),q(:,:,j)) 711 711 ! enddo 712 712 … … 743 743 744 744 ! do j=1,nqtot 745 ! call WriteField_p('q'//trim( int2str(j)),745 ! call WriteField_p('q'//trim(num2str(j)), 746 746 ! . reshape(q(:,:,j),(/iip1,jmp1,llm/))) 747 ! call WriteField_p('dq'//trim( int2str(j)),747 ! call WriteField_p('dq'//trim(num2str(j)), 748 748 ! . reshape(dq(:,:,j),(/iip1,jmp1,llm/))) 749 749 ! enddo … … 781 781 ! call WriteField_u('pkfi',pk) 782 782 ! do j=1,nqtot 783 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))783 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 784 784 ! enddo 785 785 ! #endif … … 887 887 ! call WriteField_u('pkfi',pk) 888 888 ! do j=1,nqtot 889 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))889 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 890 890 ! enddo 891 891 ! #endif … … 978 978 ! call WriteField_u('dpfi',dpfi) 979 979 ! do j=1,nqtot 980 ! call WriteField_u('dqfi'//trim( int2str(j)),dqfi(:,:,j))980 ! call WriteField_u('dqfi'//trim(num2str(j)),dqfi(:,:,j)) 981 981 ! enddo 982 982 ! #endif … … 992 992 ! call WriteField_u('psfi',ps) 993 993 ! do j=1,nqtot 994 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))994 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 995 995 ! enddo 996 996 ! #endif … … 1006 1006 ! call WriteField_u('psfi',ps) 1007 1007 ! do j=1,nqtot 1008 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))1008 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 1009 1009 ! enddo 1010 1010 ! #endif … … 1020 1020 ! call WriteField_u('psfi',ps) 1021 1021 ! do j=1,nqtot 1022 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))1022 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 1023 1023 ! enddo 1024 1024 ! #endif … … 1086 1086 ! call WriteField_u('psfi',ps) 1087 1087 ! do j=1,nqtot 1088 ! call WriteField_u('qfi'//trim( int2str(j)),q(:,:,j))1088 ! call WriteField_u('qfi'//trim(num2str(j)),q(:,:,j)) 1089 1089 ! enddo 1090 1090 ! #endif
Note: See TracChangeset
for help on using the changeset viewer.
